home *** CD-ROM | disk | FTP | other *** search
/ Gospel Library / Infobase setup disc.iso / intro / intro.dxr / 00204.ls < prev    next >
Encoding:
Text File  |  1998-09-22  |  767 b   |  39 lines
  1. on startMovie
  2.   clearGlobals()
  3.   cancelpuppets()
  4.   set the exitLock to 1
  5.   set the keyDownScript to "Kenny"
  6. end
  7.  
  8. on Kenny
  9.   global enterOK
  10.   if the keyCode = 53 then
  11.     Stan()
  12.   else
  13.     if (the commandDown = 1) and (the key = "q") then
  14.       Stan()
  15.     else
  16.       if the key = "q" then
  17.         Stan()
  18.       else
  19.         if (the key = RETURN) or ((the keyCode = 125) and (enterOK = 1)) then
  20.           cancelpuppets()
  21.           go(#next)
  22.           set enterOK to 0
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on Stan
  30.   global pauseMe
  31.   cancelpuppets()
  32.   set pauseMe to 1
  33.   set the movieRate of sprite 3 to 0
  34.   puppetSprite(45, 1)
  35.   set the castNum of sprite 45 to cast "QuitScreen"
  36.   set the visible of sprite 47 to 1
  37.   set the visible of sprite 48 to 1
  38. end
  39.